home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
clisp.zip
/
SCREEN.LSP
< prev
next >
Wrap
Text File
|
1994-02-05
|
1KB
|
34 lines
(in-package "SCREEN" :use '("LISP"))
#|
; Re-Export von importierten Symbolen kann man nicht mit der
; P I S E R U I - Regel erreichen. Diese Symbole muß man zuerst importieren.
(in-package "SYSTEM")
(import '(make-window window-size
window-cursor-position set-window-cursor-position
clear-window clear-window-to-eot clear-window-to-eol
delete-window-line insert-window-line
highlight-on highlight-off window-cursor-on window-cursor-off
)
"SCREEN"
)
(in-package "SCREEN")
|#
(export '(make-window window-size
window-cursor-position set-window-cursor-position
clear-window clear-window-to-eot clear-window-to-eol
delete-window-line insert-window-line
highlight-on highlight-off window-cursor-on window-cursor-off
with-window *window*
) )
(proclaim '(special *window*))
(defmacro with-window (&body body)
`(LET ((*WINDOW* (MAKE-WINDOW)))
(UNWIND-PROTECT (PROGN ,@body) (CLOSE *WINDOW*))
)
)